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44; FDOT routine 
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; The DMF32 Parallel Port interface is a 16 bit 


4 paralle 
5 ; to a user device. It includes a DR11C compatibility mode (used for wor 
§ 3 mode within this driver), a silo (buffered) mode (not implemented | this 
3; driver), and a DMA mode (also not implemented by this driver). The interface 
8 : looks Like the following: 
00 34 3 
44 0; 
000 $3 g ° earaanea M4 poser ane + 
: ' D teee> CTRL 0 ooneceecce >! U ' 
8 94; | MM jere> CTRL 1 ooneeennn- a £4 
000 95; ' F ' oe H 
B60 38 3 ; ; |<2ee REQ A Cesarean eoae ’ R : 
00 9 5 H |<see REQ 8 Caceocensanan f 
000 98 ; ' H fea bop 
444 99 ; t+ P {fees DATA eeeeeeeee-- . gaa ‘ 
000 100; t QO j{\*"- 16 LINES -------- a. woo 
0000 101; — au ' I H 
0000 138 3 : T {===> New Data Ready -->: C  : (pulsed on write to OUTBUF) 
0000 103; ' t*--> Data Tx'ed ------ > ~€E : (pulsed on read from INBUF) 
0000 104; ' H H : 
0000 105 : $eececcn + Goeececons 
0000 106; 
0000 107 ; 
0000 =108 ;-- 
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SBTTL Documentation on interface 


The DMF32 parallel port exchanges one 16-bit word at a time. A single 
1 transfers a buffer of data, with an interrupt requested for 
ch word. 


For each buffer of data transferred, the DMF32 parallel port allows for 
: the exchange of additional bits of information: the Control and Status 

; Register (CSR) function (CTRL) and status (REQUEST) bits. These bits are 
; accessible to an a ee process through the device driver QI0 

; interface. The CTRL bits are labeled CTRL 0 and CTRL 1. The REQUEST 
bits are Labeled REQUEST A and REQUEST B. 


; The user device inser taced to the DMF32 parallel port interprets the 
value of the two CTRL bits. The Q10 request that initiates the transfer 
; specifies the IOSM_SETFNCT modifer to indicate a change in the value 


L 
bits 0 and 1 correspond to CTRL bits 
; through 31 are not used. If required. the CTRL bits must be set for each 


device. 


; The device class for the DMF32 parallel port is DCS$_REALTIME and the 
; device type is DT$_XI_DRI1C. The DMF32 parallel port driver does not 
; use the default buffer size field. The value of this field is set to 
; 65,535. This driver defines no device-dependent characteristics. 


The DMF32 parallel port can perform logical, virtual, and physical 1/0 
operations. The basic 1/0 functions are read, write, set mode, and set 
characteristics. 


NAME WN OS OONOA UE WIN 9 OO NOAUE WIN OO ONAUE WN OOONOu 


SOOoCCOCOCOOSOSOoOOOOOOOSoOOSOSOSOSOSOOOOSOOOSOSOOOSOOSOSoOO 


SOOSOSOSSSoooooooooooooooooooooooooooooooooooooesooo: 


SOoOCCOCCSOSOSOSSOSOSOSOoOSoooooooooooooooooooosoo 


Peessesan res een nmre sen ssrectemeese soz eae awsece fomowmme nano se wroe seme a + 
! Function Code and Function ! Function ' 
Arguments Modifiers ; ; 
' i] 

10$_READLBLK P1,P2,- ' IOSM_SETFNCT | Read block ! 
P3,P4 1OSM~RESET i ' 
1O$M~TIMED 
10$_WRITELBLK_P1,P2,- | IOSM_SETFNCT ‘Write logical block! 
P3,P4 1OSM~RESET i i 

1OSM~ TIMED 


4 

= i 
I10$_SETMODE P1,P3 IOSM_ATTNAST !Set PORT charact- ! 
‘eristics for subse-! 

quent operations 


10$_SETCHAR P1,P3 10$M_ATTNAST iSet P RT charact- ' 
Ss 


+ 
' 
+ 
1 
j 
j 
+ 


ee a ae ee a a ee a ee a a a ee ee a ee ee ee ee a a a ad od 
Bee Ne au a bie inde ee eee eee eee 


SOoOooooooooooooec ooQoooooooQoooooooooooooocooooooSoSo 


—OQOONAULSWN Oo 


‘er cs for subse-! 
quent operations ; 
Dt errr $ancecceeensesse goooce aaveeeseescese * 
; Not in above table are functions I0$_READPBLK, IO$_READVBLK, WRITEPBLK 
and WRITELBLK. There is no functional difference if these operations. 


—————L 
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; ; A though the DmMr3 poral tel pe ner does not git terent tote e between pogical. 
unctions (all are treated identically) 


virtual, and phys cal 1/0 
user must have the required pr flonse( to issue a request. 


The function-dependent arguments for the read and write function codes are: 


) Pl == the starting yirguet or of the buffer that 
zz. to receive data in the case of a reee operation; or, in 


ee ed aed ed Wn 8 WA 


— of a write operat % the v rt al address of the 
butters that is to send data to the OMF pores ses port. 
Modify access to the buffer, rather than read or write 
eee is checked for all block mode read and write 
requests. 


° P2 -- the size of the dete butt r in bytes. that is, the 
transfer count. Since the DMF32 parallel port performs 
word transfers, the transfer count must be an even value. 


0 P3 -- the timeout period for this request (in seconds). 
The value specified must be equal to or greater than 2. 
IOSM_TIMED 7 be epee tt ted. The default timeout value for each 
request is 10 seconds. 


° *. -- the value of the DMF32 gece tel be port Command and Status 
et Mt aS (CSR) function Sere bits to be set. f 
FNCT is specified, the low-order three bits of P4 
:03 are written to CSR CTRL bits 1:0 tooapecttusly! at the 
time of transfer. 


COOooQooooooQoooooooooooooo 
SOQooooooooooooooooo 


ooo 
OOCooooocoocooooooo 


The transfer count specified by the P2 arguagnt must be an even nerves 

of bytes. If an odd number or more than 65534 bytes is specifed, 

error (SS$ nm ae et is returned in the 1/0 status block (I0SB). If the 
ransfer count is 0, the driver will transfer no data. However f 

1osn” se rem) is ee and P2 is 0, the driver will set the CTRL bits 

wn tn © ah Bg perek lel port CSR, and return the current CSR status bit 

values in the 


S 


PRIPIPININPONINININIPOPININIPYNIPIPOPINININIMPIPONPININININYNY 


OOoooeco: 


The read and write Q10 functions can take three function modifiers: 


() IOSM_SETFNCT = set the function (CTRL) bits in the DMF32 parallel 
ort CSR before the data transfer is initiated. Me 
ow-order two bits of the P4 argument sp pecity phe 
bits. The user ah A that interfaces the DMF32 PARALLEL 
PORT receives the CTRL bits directly and their value is 
interpreted entirely by the device. 


SOoooooooooooooo 
OOoooooooooo 


If an unsolicited interrupt is received from the DMF32 sperattel port, no 
read or write request is posted, and the next request is for a word mode 
read, the driver w i return the word read from the DMF 32 parallel port 
INBUF and store it in the first word of the oo buffer. In this case 
the driver does not wait for an interrupt. 


) IOSM_TIMED - set the egy ice timeout ingeevel for the data 
ransfer requests. The PS argument spect? ies the timeout 
nterval value in seconds. for cons gat results, this 

value must be equal to or greater than 


DONA AE WI 9 OOD NAMES WIN OOD NAME WN SO OD NAME WIN OO OONAULS WI OVDONAOUS UNO 


SOSSOSOSSOSOSOOOOOOOOSOOSOOSOSOSOSOSOSOOSOSOOSOOOOOOOOOOOOSoOOOO: 
PPLE ESF PWMWIWIWIWIWMIWIIGIPIIIDININININININID) 2 2 SS S| MQOOOOCOOOOCOOOOOOOOO 
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(+) An unso 


fr) An attention AST is queued and a previous unsolicited interrupt 
has not been acknowledged. 


The SCANCEL system service is used to flush attention ASTs for a specific 


Licited interrupt from the DMF32 parallel port occurs. 


MELT 


49 ; 0 IOSM_RESET = pyr fore ’ device reset to the DMF32 parallel port before 
3 any I/O operation is initiated. This function does 9 t 
: affect any other device on the system or on the DMF St 
7 ; The set mode and characteristic function codes are: 
6 33 ; 0 10$_SETMODE 
09 3? ; 0 10$_SETCHAR 
$0 35 ; These functions take the following device/function-dependent arguments: 
09 81 : 0 Pl = the virtual address of a quadword characteristics buffer. If 
00 6¢ 3 the function modifer IOSM_ATTNAST is specified, P1 is the 
0000 65 ; address the AST service routine. In this case, if P1 is 0, 
388 rt: : all attention ASTs are disabled. 
000 66 > 0 P3 = the access mode to deliver the AST (maximized with the 
000 67 ; requestor's access mode). If IOSM_ATTNAST is not specified, P3 
464 o8 : is ignored. 
+444 70: Figure 3-4 shows the quadword P1 characteristics buffer for 
3208 z] : 10$_SETMODE and I0$_SETCHAR. 
9900 73 ; 31 16 15 87 0. 
0000 275: 
8608 zg : } not used type class 
0000 278 ; peeeenn nena nnn ----------- benennen------ t$eee--------- + 
0000 79 ; ‘ ! 
444 0 : device characteristics 
9000 38 ; beeen nen nnn n nn nnn nnn nnn nnn n nnn nnn n nnn nnn n nnn e n= - * 
000 4 3 
8000 : : The 198 SE THOE and IO$_SETCHAR function codes can take the following function 
099 : 
0900 i ; 0 I1OSM_ATTNAST = enable attention AST 
44 34 ; This function modifier allows the user process to queue an attention AST 
' 0; for pet ivory when an asynchronous or unsolicited condition is detected 
0 91 ; by the DMF52 parallel port driver. Unlike ASTs for other Q10 functions, 
35 3 use of this function modifier Coes not increment the 1/0 count for the 
95 ; requesting process or lock pages n memory for 1/0 buffers. There must 
3e ; be an AST quota for each AST. 
39 ; Attention ee delivered under the following conditions: 
98 
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: I10S_SETMODE! IOSM_ATTNAST and IOS_SETCHAR! IOSM_ATTNAST are one-time AST 

enables; they muSt be explicitly re-enabled once the AST has been 
delivered if the user desires notification of the next interrupt. Use 
of this function modifier does not update the device characteristics. 


After the AST is delivered, the Q10 astprm parameter contains the 
contents of the DMF32 parallel ors CSR in the low two oytes and the 


10 ; 
y] 3 
18 ; value read from the DMFS2 parallel port INBUF in the high two bytes. 
15 : On completion of each read or write request, the 1/0 status block 
0 My ; is filled with system and DMF32 parallel port status information. 
8 8 3 +2 10SB8 
0 1 3 $eooceeccececececescocecca $oces coceeecececesocecece + 
000 0; ! ! ! 
4 1 3 byte count } status 
0000 g 3 $wwoeeceseeeeceoscececo $oaeceeeeecesoeeoeeceeccan + 
0000 4; ! ! ! 
0000 $ 3 ! unused ! PORT CSR 
0000 § 5 : ! ! 
4 : $eoeecccoeeeccesoecocce ¢ovesceccecoccoececescece + 
00 8 3 
i464 9; 
000 0 ;-- 
0000 31 
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5 
§ ; Exte 
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-SBTTL External and local symbol definitions 


rnal symbols 


8 SACBDEF 3; AST control block 
SCRBDEF 3; Channel request block 
40 SOCDEF 3 Device types 
41 SDDBDEF 3; Device data block 
0 rk: SDPTDEF ; Driver prolog table 
4 SDYNDEF 3; Dynamic data structure types 
44 SIDBDEF 3: Interrupt data block 
45 SIODEF : 1/0 function codes 
38 re SIPLOEF 3; Hardware IPL definitions 
4 SIRPDEF 3; 1/0 request packet 
O88 rt: SPRDEF 3; Internal processor registers 
0 4 SPRIDEF 3: Scheduler priority increments 
00 50 SSSDEF 3; System messages 
00 51 SUCBDEF 3 Unit control block 
b8 26 SVECDEF 3; Interrupt vector block 
4 22 3 Local symbols 
4 2$ 3; Argument List (AP) offsets for device-dependent 010 parameters 
00000000 000 58 Pl = 0 3; First Q10 parameter 
00000004 000 59 Ps = 4 : Second Q10 parameter 
00000008 0000 60 P = § : Third Q10 parameter 
0000000 000 61 P4 = 12 : Fourth Q10 parameter 
0000 ; ¢ PS = 16 : Fifth Q10 parameter 
00000014 ; o7 P6 = 20 3: Sixth Q10 parameter 
09 03 3; Other constants 
8 09 $9 XI_DEF_TIMEQUT = 10 : 10 second default device timeout 
OOOF FFF 0 68 XI_DEF BUFSIZ = 65535 ; Default buffer size 
44 $9 XISK_VEC_OFFSET = 2 ; Vector offset 
33 
72 : Macros 
0 i 3 
re 
o 3; The sercin macro sets the CTRL 0 and 1 Lines as they have been 
77 ; specified in P4 in a read or write Q10. They are cleared and a wait 
4 3 gccurs before being set. This i because testing for this example 
79 ; driver was done be uesn two DMF32's in word mode, and the delay is so the 
? 3; microcode on the DMF32 can see the control Line changes. 
5 MACRO SETCTRL 
4 BICcW #X1_CSRSM_CTRLO!XI_CSRSM_CTRL1,X1_CSR(R4) 
en ee 
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context = Lae 
TENS = , TRUE. 
TSTL (SP)+ 
BISW IRPSL_SEGVBN(R3) ,XI_CSR(R4) 
94 .ENDM  SETC 


TRL 


<= 
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000000A0 


000000A4 


000000A8 


Q00000AA 


000000AC 


000000AC 


339 


—o&> 


NAME Uy 
Aad Sad Aad 
.~J o o 
Mm m m 
~~ nn nn 


MN 2 QO OOCOOSOOO 


Wr “OOWONAOULS WO Oe 


Foy ot of of ot ot at ot ot at at ae 


SDEFINI UCB 
.=UCBSL_DPC+4 
UCBSL_XI_ATIN 


UCBSL_X1I_DPR 
UCBSW_X1_INBUF 


UCBSW_XI_CSR 


SVIELD UCB»0 


»BLKL 


~BLKL 


-BLKW 


~BLKW 


ATENAST. .M>, ° 


<UNENPT A 


UCBSK_SIZE=. 


SDEFEND UCB 


1 


1 


1 


1 
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38 ; UCB_XI definitions that follow the standard UCB fields 


Attention AST queue 


; Word count? 


; Input buffer temporary 


CSR temporary 


; Bit positions for device-dependent status field in UCB (UCBSW_DEVSTS) 


Page 11 
pele * 


3; UCB device specific bit definitions 
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425 ; 
2 § : DMF32 Parallel Port CSR definitions 
4 2 SDEFINI XI 
; SDEF XI_CSR : Device CSR 
; ; Bit positions for device control/status register 
434 SVIELD XI_CSR,0,<- ; Control/status register 
435 <CTRLO, .M>,- : Control Line 
4 § <CTRL1,,M>,° : Control Line 
4 <NPR ps: M>,- 3; NPR Primary/Secondary 
B85 4 8 <INDREG,2,M>,= 3: Indirect Register Address 
0 4 <INTENB_A, ,M>,=- ; Interrupt Enable A 
8 440 <INTENB_B,,M>,- : Interrupt Enable B 
441 <REQ_A,,M>,=- 3; Request A 
00 128 <DONE_P, .M>,- 3: Done Primary 
000 44 <DONE_S,,M>,= ; Done Secondary 
000 444 <,,M>,= 3 unused 
9000 44s <fCUSH, .M>,- ; Flush Buffer 
444 109 <NXMERR, ,M>,= : Non-existent memory error 
it rr <RESET, ,M>,- 3; Master Reset 
000 44 <REQ_B, ,M>= ; Request B 
000 481 ; 
00000060 4 $28 XI_CSRSM_IEAB = <XI_CSRSM_INTENB_A>!<XI_CSRSM_INTENB_B> ; Interrupt enable mask 
00000002 388 454 -BLKW 1 
00 455 SDEF X1_OUTBUF ; Output buffer Register 
00000004 48 +28 -BLKW 1 
004 458 ; Note that XI_INBUF and XI_MISC are at the same offset 
004 459 
004 460 SDEF XI_INBUF : Input buffer Register (when read) 
4 $8) SDEF XI_MISC : Miscellaneous Register (when written) 
49 46s 3; Bit positions for miscellaneous register 
One $02 SVIELD ah BIS, -8.<= : miscellaneous register 
4 269 <,10,8>.- - > unused 
4 6 <SECBUF . .M>- : Secondar Butfer Address, Bit_17 
? ? i 5 <PRIBUF , ,M>- ; Primary Buffer Address, Bit 17 
00000006 4 471 -BLKW 1 
6 4% SDEF XI_IND : Indirect Register 
00000008 ; yh -—BLKW 1 
0 475 SDEFEND XI : End of PORT CSR definitions 


rae 
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“SEP-1984 
-SBTTL Device Driver Tables 
3; Driver prologue table 
DPTAB 


Device Driver Tables 


END=X1_END,- 
ADAPTERS UB, « - 
FLAGS=DPT 

eT euense VSI2E.- 
NAME=XIDRIVER 


DPT_STORE INIT 


DPT_STORE UCB 
DPT-STORE UC 
DPT-STORE U 


eo 
° 
- td 


=] 
m 
< 
Baaans 
eae ee 


DPT _ STORE ueBs 
DPT“STORE UCB.UCBS$B_DEVTYPE 8 
DPT~STORE E UCB -UCBSY “DEVBUF Siz 
DPT _ STORE TAPGNT? 


DPT_STORE DDB,DDBSL DPT .D D ,X18D0T 
DPT = STORE CRB CRBSL-INTD+4,D 


XI _LINVERRU 
DPT_STORE CRF CRBSL INTD2+4,D,- 


SOOO OOOCOOOoOoOooSoOo 


DPT_STORE “END - 


3; Driver dispatch table 


DDTAB = 
DEVNAM=XI,- 

START=XI 

PUNCTBAAT sTONCTABLE. 
CANCEL=X1~ CANCEL 


PUPVWPVIVLIV DV DUSVSVSUSVSVSVSTSTSISISI SIONS S™ Be Be EB PPP PPP PPP PPLE SE 
tt MOOOOODOOOO OOOO 0000000909 0009 090000090909 SII 


WOONOA MEW =O ODNAUFS WIN $9 OONANES WO OONAULS WN —OOon 


SOSOSOSCOOOOSOSOSOSOOSOS 
SOOOCOOSCOSAAANAANANE BREE REE EUWU 


SOOO OCOCQCOCOCDWMWMMODOL LHL UNNDNOOCOSO 
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De adheste Se Ge Se Ge Se Ge Se Se 


DPT_STORE TRB CRBSL a ta INITIAL,- 
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Sete Se Se Sete 


oz 


DPT-creation macro 
End of mceee Label 
Adapter type 
Ne pe system page table 
Driver name 
start of load 
initialization table 
Device fork IPL 
Device interrupt IPL 
Device characteristics 
Available 
Real Time device 

input device 

output device 
E : Device class 
vice Type 


De 
: Default buffer size 


Start of reload 
initialization table 
ddress of DDT 
Address of interrupt 
service routine 
Address of interrupt 
service routine 

; Address of controller 
initialization routine 
S tnd of initialization 
tables 


ding ap han aneeg 
Name of dev 

Start ad rout ine 

FDOT addre 

Cancel ie routine 


<x 


seth 
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: Function dispatch table 
4 KI_FUNCTABLE : : FOT for driver 
§ 3; Valid 1/0 functions 
8 FUNCTAB ,- 
<READPBLK READLBLK READVBLK. = 
0 WRITEPBLK,WRITELBLK WRITE 
05 1 SE TMODE , SETCHAR, SENSEMODE, VeENSECHAR> 
o¢ $ FUNCTAB , 3 No buffered functions 
04 5 FUNCTAB XI_READ_WRITE 3 Device-specific FDT 
0048 5 6 <REA DPBCK -REABLALK READVBLK, - ‘ 
04 3 OR IT EP BLK,WRITELBLK,WRITEVBLK K> 
054 8 FUNCTAB +EXESREAD,<READ PBLK. -READLBLK R VBLK 
9060 539 FUNCTAB +EXESURITE, <WRITEP BLK RITELBLK, WRI TEVBLK> 
06c 540 FUNCTAB XI_SETMODE,<SETMOD wen AR> 
0078 541 FUNCTAB NE RESSEUMEMOSE eSENSEMOSE. SENSECHAR> 
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r $3 -SBTTL XI_CONTROL_INIT, Controller initialization 
4 45 344 
4 rt} ; XI_LCONTROL_INIT, Called when driver is loaded, system is booted, or 
? : ; power failure recovery. 
4 a3 : Functional Description: 
8 4 2 : 1) Allocates the direct data path permanently 
4 26 3 ¢ Assigns the controller data channel permanently 
084 ae § ) Clears the Control and Status Register 
r 2¢ : 4) If power recovery, requests device time-out 
99 4 36 ; Inputs: 
8° 4 58: R4 = address of CSR 
084 59 ; RS = address of IDB 
084 60 ; R6 = address of DDB 
084 61; R8 = address of CRB 
084 $6 : 
Bese 364 : Outputs: 
$084 65 ; VECSV_PATHLOCK bit set in CRBSL_INTD+VECS$B_DATAPATH 
0084 286 3 UCB address placed into IDBSL_OQNER 
0084 67; 
tn 
084 255 : 
bee ef) XI_CONTROL_INIT: 
50 18 AS DO 0084 278 MOVL IDB$L_UCBLST(R5) ,RO 3; Address of UCB 
04 A5 50 00 0088 574 MOVL RO, IDB$L_OWNER(RS) 3; Make permanent controller owner 
64 AO 10 AB 008C 323 BISW  #UCBSM_ONLINE, - 
bee 8 UCBSW_STS(RO) ; Set device status ‘‘on-Line’’ 
090 ae 3; If powerfail has occured and device was active, force device time-out. 
90 144 3; The user can set his own time-out interval for each request. Time- 
4 + 3; out is forced so a very long time-out period will be short circuited. 
05 64 AO 4205 ~=2E0 (009 8 BBS #UCBSV_POWER, - 
$95 UCB$W_STS(ROS,10$ : Branch if powerfail 
37 AB) «880 BFS 8B C0095 4 BISB #VECSA_PATHLOCK, - 
8 i 108 CRBSL_INTD+VECSB_DATAPATH(R8) ; Permanently allocate direct datapath 
9A : 
50 OF AS 38 O09A 8 CVTB IDBSB_COMBO_CSR_OFFSET(RS) ,RO ; GET OFFSET TO MAIN DMF CSR 
10 aS 8 H 7 8 SUBB I1DB$B-COMBO-VECTOR_OFFS T(RS).= : CALCULATE AND LOAD THE 
6440 OB AS A 590 IDB$B- VECTOR(RS) , (R4) CROJ 3 VECTOR ADDRESS 
030D 30 OAS 23) BSBW X1_DEV_RESET ; Reset port ¢ 
5 00A8 92 RSB 3 Done 
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~SBTTL XI_LREAD.WRITE, Data transfer FDT 


p++ 
a XI_READ_WRITE, FOT for R et LBLK,READVBLK ,READPBLK ,WRITELBLK ,WRITEVBLK, 


TEPBLK 


Functional description: 


fw mw 
wee ww 


DBOurw 


tt I I I QOOQOQDOOOOOOOOOO 
rPwawDwDwD « 


DWOONAULS WN OOONOUS WO 000 


Rejects QUEUE I/0's with odd transfer count 

Rejects QUEUE I/O's for DMA request to UBA Direct Data 

PATH on odd b boundary 

Stores re uest t teocevs eount goog ttied in P3 into IRP 

Stores CTRL bits specified in P4 

Checks block mode transfers for memory a access 

= Address of IRP 

= Address of PCB 

= Address of UCB 

= Address of CCB 

= Address of P1 
Pil = Buffer Address 
P2 = Buffer size in bytes 
PS = Request time-out ies (conditional on I0$M_TI me D) 
P4 = Value for CSR CTRL bits (conditional on IOSM_SETFNCT) 
P5 = 0 for Request A, for Request B (DMA) 


4 = Error status if odd transfer count 


RPSL_MEDIA = Time-out count for this request 


IRPSL-SEGVBN = CTRL bits for PORT CSR 


XI_READ_WRITE: 


LDDRDQDQAADPDA AAA AAA AA AAAAAAAAA AA AAA AAA AAAAAA AA AAO 


BHF FWA WIWINIWIPONDPONOPoNononofnofngd 


WPS OODNAOUES WN $$ O OONAULS WN —O 


BLBC P2(AP) ,20$ ; Branch if transfer count even 
MOVZWL #SS$_BADPARAM,RO : Set error status code 
JMP G*EXESABORTIO- ; Abort request 
MOVZWL IRPSW_FUNC(R3),R1 3; Fetch 1/0 Cunettes code 
MOVL P3(APY nese area” 3; Set request specific time-out count 
BBS #losy fin : Branch if time-out specified 
MOVZWL DEF ines uf: 

Ths - DIACRS) : Else set default timeout value 
EXTZV ire oP4(AP 

TRPSL SEGVENERS) : Get value for CTRL bits 

3; Return 
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CF 645 -SBTTL XI_SETMODE, Set Mode, Set Char FDOT 
ee 
4 eis ; XILSETMODE, FDT routine to process SET MODE and SET CHARACTERISTICS 
of o29 ; Functional description: 
Oct O26 : If IOSM_ATTNAST modifier is set, queue attention AST for device 
CF 469655: Else, finish 1/0. 
QOCF 654; 
OOCF 655 ; Inputs: 
Bace 228 ; 
OOCF 657; R3 = 1/0 packet address 
OOCF 658; R4 = PCB address 
OOCF 659; R5 = UCB address 
Opee 660 ; R6 = CCB address 
bce 661 ; R7 = Function code 
OOCF 996 ; AP = QI0 Paramater List address 
Rare 663 ; 
OCCF 664 ; Outputs: 
OOCF 665; 
OOCF 968 : If IOSM_ATTNAST is specified, queue AST on UCB attention AST List. 
OOCF 667 ; Else, use exec routine to update device characteristics 
OOCF 668 ; 
OOCF 669 ;-- 
OOCF 670 
OOCF 671 XI_SETMODE: 
OOCF ore 
50 20 A353 3C OOCF 67 MOVZWL IRPSW_FUNC(R3),RO ; Get entire function code 
28 56) 0 =2O08:Stsé#@€€’ ones ere BBC #1OSV_ATTNAST,RO,20$ ; Branch if not an ATTN AST 
00D7 of6 3; Attention AST request 
00D7 = 67 
0 8F BB aed o78 PUSHR #*°M<R4,R7> 
57 QOAO0 CS’ 9 +4 67 MOVAB UCBSL_XI_ATTN(RS) ,R7 ; Address of ATTN AST control block List 
00000000 ' GF 16 OOE 680 JSB G*COMSSETATTNAST ; Set up attention AST 
0090 8F BA OOE6 681 POPR #*M<R4,R7> 
E9 OOEA oes BLBC R ; Branch if error 
68 AS «(01 AB OED 68 BISW  #UCBSM_ATINAST, - 
OF1 684 UCBS$W_BEVSTS(R5) : Flag ATTN AST expected. 
03 68 AS 01 #+#+€1 OOF1 685 BBC UNEXPT, = 
OOF6 686 UCB$W_DEVSTS(RS),10$ |; Deliver AST if unsolicited interrupt 
0260 30 0 . 687 BSBW XI bet ATTNAS 
00000000'GF 17 8 4 ? 3 10$: JmP G*EXESFINISHIO ; Thats all for now 
00000000'GF 17 44 4 208: JMP G*EXESSETCHAR ; Set device characteristics 
51 D4 0105 692 30$: CLRL R1 3: zero R1 
00000000'GF 17 BIR" $32 JMP G*EXESABORTIO ; Abort 1/0 with RO as status 
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V 
~SBTTL XI_START, Start 1/0 routines 
; XI_START = Start a data transfer, set characteristics, enable ATTN AST. 
Functional Description: 

This routine has one major function: 

1) Start an 1/0 transfer. The CTRL bits in the port CSR are set. If 


the transfer count is zero, the STATUS bits in the PORT CSR 
are read and the request completed. 


BDOOGOOCOOCOCOOOUOO 


Inputs: 
R3 = Address of the 1/0 request packet 
RS = Address of the UCB 

Outputs: 


ocvuVIVT TIT ITIVTVTVTVVT9T TCT 9TC0C0C0C0€8 


RO = final status and number of bytes transferred 
R1 = value of CSR STATUS bits 


06 
Ay 
0 7 4 
0 704 
0 705 
0 7 $ 
B18 7 
1 708 
it 709 
01 710 
010 711 
010 ay 
010 71 
010 714 
010 715 
010 716 
0100 717 
0100 718 ;-- 
0100 719 
010D 720 XI_START: 
010D i$] 
3198 4 § 3; Retrieve the address of the device CSR 
010D $3 ASSUME IDBSL_CSR EQ 0 
54 24 AS DO 010D 725 MOVL UCBSL_CRB(R5) ,R4 ; Address of CRB 
54 «2 B4 ODO sO0111 126 MOVL aCRBSC_INTD+VECSL_1DB(R4S .R4 
B12 se ; Address of CSR 
pile 730 3; Fetch the 1/0 function code 
1 20 A3 0115 8 731 MOVZWL IRPSW_FUNC(R3),R1 : Get entire function code 
009A cS) 551s «BO CO0119 13 MOVW  R1,UCB$W_FUNC(RS) > Save FUNC in UCB 
52 06 E orig 7 EXTZV #10$V_FCODE, - 
Bis : #10$S_FCODE,R1,R2 3 Extract function field 
a 73 3: If subfunction modifier for device reset is set, do one here 
03 51 OB 4 01 738 BBC S*#10$V_RESET,R1,40$ ; Branch if not device reset 
0288 0 a : 444 BSBW X1_DEV_RESET ; Reset port 
12A 741 ; This must be a data transfer function - i.e. READ OR WRITE 
12A re 3; Check to see if this is a zero length transfer. 
! . ot? 3; If so, only set CSR CTRL bits and return STATUS from CSR 
7E AS) «=6©BS «(012A «745 40S: TSTW VERSU SCNT IRS) :; Is transfer count zero? 
50 12 012D re BNEQ 00$ 3 No, continue with data transfer 
3c 51 09 =sééE: 12F 74 BBC S*#IOSV_SETFNCT,R1,60$ ; Set CSR CTRL specified? 
133 oe DSBINT ; Disable Interrupts 
139 74 SETCTRL ; Set CTRL bits in CSR 
51 64 3C 0167 #750 MOVZWL XI_CSRC(R4),R1 : Save CSR 
16A ey ENBINT : Enable Interrupts 
02 11 #0160 752 BRB 708 ; Skip clearing of R1 


FUSION 


52 


So 
o 
Pk hh oh oh od oh I I IHD 


0.09 69 09 09 09 69 09 Cd C9 CD C9 C9 CD OD C9 GD CD 09 CO C9 C9 CD 09098 INI NINN NNININNINOO Ot 
NSS eee eee 
50.09 096909 69 09 6909 69 098 INI NII NINN NNO AAAAAPAAOOUIU 
SOONAUES WN 3 9 OONA UE WIN 9 OOD NAUE WIN OO OONOUSE Wi 
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i ob at 
Start 1/0 routines 66-SEP-1984 
$: CLRL R1 3 
$: BISW #X1_CSRSM_IEAB,- 
XI ESR (RST ; 
MOVZWL #SS$_NORMAL ,RO ; 
REQCOM : 


; Do the read or the write 


UCBSW_BCNT(RS) ,RO : 
#-1,RO,UCBSL_vf_DPR(RS) ; 


- word mode tranfer 


MOVZWL 
ASHL 


-SBTTL 


70:58:12 DRIVER. SRCIRIDRIVER.MAR: 2 


Clear R1 


; Enable device interrupts (A & B) 


Set success 


; Request done 


; Get byte count 


Make byte count into word count 


WORD MODE -=- Process word mode (interrupt per word) transfer 


FUNCTIONAL DESCRIPTION: 


Data is transferred one word at a time with an interrupt for each word. 


The request is handled separately for a write (from memory to port 


and a read (from port to memory). 


For a write, data is fetched from memory, loaded into the ODR of the 


port and the system waits for an interrupt. 


For a read, the system 


waits for a port interrupt and the INBUF is transferred into memory. 


If the unsolicited interrupt flag is set, the 
n 


directly into memory withou wait 


g for an interrupt. 


WORD_MODE: 

3 Dispatch to separate loops on READ or WRITE 

10$: 
CMPB #10$_READPBLK ,R2 ; Check for read function 
BEQL WORD_MODE_READ 


Page 


first word is erens tarred 
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ah 
++ 

WORD MODE WRITE == Write (output) in word mode 
FUNCTIONAL DESCRIPTION: 


18F 3 
18F 3 
lar 598 
18F 796: 
18F £38 : Transfer the requested number of words from user memory to 
18F £38 $ the port OUTBUF one word at a time, wait for interrupt for each 
} : 800 : word. 
18F " 
i ; + relia aati 
0110 30 018F 4 —s- BSBW = MOVFRUSER : Get two bytes from user buffer 
019 2 DSBINT 3 Lock out interrupts 
019 $ ; Flag interrupt expected 
02 A4 51 +4 019 0 MOVW R1,X1_OUTBUF (R4) ; Move data to port 
64 0060 8 As 019C 808 BISw #xi_CSRSM_IEAB, - 
Q1A1 09 XI_CSR(R4Y ; Set Interrupt Enable (A & B) 
na 319 SETCTRL 3; Clear and set CTRL bits 
pice gig 3; Wait for interrupt, powerfail, or device time-out 
O1Cr 14 WFEIKPCH XI_TIME_OUTW, IRPSL_MEDIA(R3) 
zipe $18 3; Decrement transfer count, and loop until done 
Biba 818 IOF ORK : Fork to lower IPL 
O0OA4 (5 B7 OI1EO 819 DECW UCBSL_XI_DPR(R5) ; ALL words transferred? 
AQ = 12 Bice HH BNEQ 10$ 3; No, loop until finished. 
O1E6 8 § 3; Transfer is done, clear ingerrust expected flag and FORK 
Bieg : ? : ALL words read or written in WORD MODE. Finish 1/0. 
He 8 5 RETURN_STATUS: 
50 01 3C O16 8 5 MOVZWL #SS$_NORMAL,RO 3; Complete success status 
51. 00A4 C5 02 A O1E9 3 MULW #2,UCB$L_XI_DPR(R5),.R1 ; Calculate actual bytes x fered 
7 Ae Ft & 1EF SUBW R1,UCBSW-BCAT (RS) RI ; From requested number of bytes 
50 10 10 51 FO OQ1F4 0 INSV R1,416,#T6,R : And place in high word of RO 
51 OOAA CS 3C O1F9 831 MOVZWL UCBSW_XI_CSR(RS) ,R1 : Return CSR status 
aan | a a 
Sao BF na $5) HE ousy HYCERIED rena,‘ Sear CTR bits 
64 ait 36 XI_CUSRC(R4J : : Enable device interrupts (A & B) 
0206 REQCOM : Finish request in exec 
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oe 
WORD MODE READ -- Read (input) in word mode 
FUNCTIONAL DESCRIPTION: 


Transfer the requested number of words from the port INBUF into 
user memory one word at a time, wait for interrupt for each word. 
If the unexpected (unsoliciteds interrupt bit is set, transfer the 
sires Veet received) word to memory without waiting for an 
nterrupt. 


WORD_MODE_READ: 
SETIPL UCBS$B_DIPL(RS) ; Lock out interrupts 


3: If an unexpected (unsolicited) interrupt has occured, assume it 
: is for this READ request and return value to user buffer without 
3; waiting for an interrupt. 


BBSC #UCBSV_UNEXPT, = 
UCBSW_BEVSTS(R5) ,20$ 3; Branch if unexpected interrupt 


DSBIN 
10$: BISW #X1I_CSRSM_IEAB, - 
XI_USR(R4Y 3 Set Interrupt Enable (A & B) 
SETCTRL ; Clear and set CTRL bits 
3; Wait for interrupt, powerfail, or device time-out 
WFIKPCH XI_TIME_OUTW, IRPSL_MEDIA(R3) 


3; Decrement transfer count, and loop until done 


4A 68 AS 01 E4 


Co Co OD CD: 
ee a heuint let in ain tikee i e eaten bide 


64 0060 8F A8 


FAN SO ODNAUE WIN SO ODUAUE WIN O ODNOULS WIN O0 


Ooo 
RIP QPIPIPIPIPININIPIPININIPINIPIPINININPIPYAPINPIPIPIPIPIPIPIPIPIPIMIPIPIPIPIPIPINPIPIPINPY 
WDOPAOAOAOOVUIVIVNIVIUIE BB PNR 2 SB OOOOCOO 
ROMO COMI IMINI BT OOO OMMMMNOOD MUD OOOOCOGMOMOMOAAAAAAAOOAO 


SOOOQCGCOCOCOOOCOOOCOOOOOOOOOOOOOOOOOOOoCO: 


208 IOF ORK ; Fork to lower IPL 

0051 30 "- BSBW = MOVTOUSER ; Store two bytes into user buffer 
5 ; Send interrupt back to sender. Acknowledge we got last word. 
$ DSBINT 

OOAS C5 B7 8 DECW UCBSL_XI_DPR(R5) ; Decrement transfer count 
AD 12 BNEQ 10$ ; Loop until all words transferred 

0 SETCTRL 
1 ENBINT 

FF44 31 2 BRW RETURN_STATUS ; Finish request in common code 


Page d 


1 
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seu 


0000 


51 
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7 
0 
00 ' GF 
8E 
OE 


QOA8 C5 


52 


02 


00000000 ° GF 


7c 
7C AS 


AS 
FE 
78 AS 


2 
00 8F 
4 
04 
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4; 
5 : MOVFRUSER = Routine to fetch two bytes from user buffer. 

5 > INPUTS: 

: RS = UCB address 

31 : OUTPUTS: 

38 : R1 = Two bytes of data from users buffer 

3¢ 3 ties descriptor in UCB is updated. 

36 : -ENABL LSB 

97 MOVFRUSER: 

98 MOVAL <=(SP),R1 ; Address of temporary stack loc 

99 MOVZBL #2,R2 ; Fetch two bytes 

00 JSB G* [OC SMOVFRUSER 3; Call exec routine. to do the deed 
901 MOVL (SP)+,R1 ; Retrieve the b ytes 

3 BRB 20$ ; Update UCB buffer pointers 
904 ; 

44 3; MOVTOUSER = Routine to store two bytes into users buffer. 

309 : INPUTS: 

908 ; 

909 ; RS = UCB addre 

319 3 UeBsW. XIL INBUF (RS) = Location where two bytes are saved 
gig : OUTPUTS: 
914 ; Two bytes are stored in user buffer and buffer descriptor in 
915 ; UCB is updated. 
916 ; 
917 
918 MOVTOUSER: 
919 MOVA UCBSW_XI_INBUF(R5),R1 ; Address of internal buffer 
920 MOVZBL 
921 JSB G* {OCSMOVTOUSER : Calle 
9 § 208: i Update. buffer pointers in UCB 
9 ADDW #2, UCBSW_BOFF (RS) Add two to buffer concer iptor 
924 BICW #*C<*XO1FF>, UCBSW -sorr cri) Modulo the page s 

925 BNEQ 308 : 14 NEQ. no page sundere crossed 
9 $ 30s ADOL #4 ,UCBSL_SVAPTE (RS) : Point to next page 
3 8 "  RSB 
9 -DSABL LSB 
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/VMS 
ME_O 
4 93) ee -SBTTL XI_TIME_OUTW, Device time-out routine 
p : iE : Device TIME-OUT 
D 5 ; Clear port CSR 
4 $i Return error status 
: 8 ; Power failure will appear as a device time-out 
D 40 ° 
° i) XI_TIME_OUTW: ; Time-out for WORD mode transfer 
O0EO 0 D rk BSBW X1_DEV_RESET 3; Reset controller 
50 022C 8F at Bs Beg ROVE #sS8_ TIMEOUT ,RO : Error status 
68 AS 84 0 DC 208 CLRW yceee DEVSTS(R5) ; Clear ATTN AST flags 
AA DF 94 BICW <UCBSM M_TIM = 
02E0 948 POCBSATINT - 
8 EQ 949 UCBSM_TIMOUT ! - 
EO 950 UCBSM_CANCEL ! = 
QO2E0 951 UCBSM_POWER>,=- 
64 AS 0068 8F 02E0 326 UCB$W_STS(R5) : Clear unit status flags 
O2E5 95 REQCOM 3; Complete I/0 in exec 
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-SBTTL XI_LINTERRUPT, Interrupt service routine for PORT 


3¢ 
; XILINTERRUPT, Handles interrupts generated by port 


Functional description: 


This routine is entered whenever an interrupt is generated 

by the port. It checks that an interrupt was expected. 

If not, it sets the unexpected (unsolicited) interrupt flag. 

ALL eevice registers are read and stored into the UCB. 

If an interrupt was expected, it calls the driver back at its Wait 
For entoreyet point, 

Deliver ATTN AST's if unexpected interrupt. 


Inputs: 
poten? = Pointer to address of the device IDB 
4(SP) = saved RO 
08(SP) = saved R1 
12(SP) = saved Re 
16(SP) = saved R 
O(SP) = saved R4 
4(SP) = saved R5 
8(SP) = saved PSL 
2(SP) = saved PC 
Outputs: 


Read INBUF and 


The driver is called at its Wait For Interrupt point if an 
nterrupt was expected. 
The current value of the port CSR's are stored in the UCB. 


XI_INTERRUPT: 3; Interrupt service for PORT 
MOVL a(SP)+,R4 3; Address of IDB and pop SP 
MOVG = (R4),R4 ; CSR and UCB address from IDB 
CSR 
MOV XI_INBUF(R4), = 
UCBSW_XI_ INBUF (R5) ; Read input data 
MOVW X1_CSR(RS),- 
UCB$W_X1_CSR(RS) ; Read CSR 


3; Check to see if device transfer request active or not 
3 If so, call driver back at Wait for Interrupt point and 
3; Clear unexpected interrupt flag. 


BBCC #UCBSV 


INT, = 
UCBSW_STS(RS5).108 : If clear, no interrupt expected 


3 fatoreupe expected, clear unexpected interrupt flag and call driver 


BICW #U 
uc ; Clear unexpected interrupt flag 


AX/VMS Macro Vv04-00 Page % 
( 5) 


OPP PP YS OVMIMINMMMMMMaoWm F 


ab ts 


| 


Palobe fers8iie EDMIVER.SAEDRIDRIVeR.MaR:2 2% By 
R 


3 i Bestere drivers R3 
5 ; i Call driver back after WFIKPCH 
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MOVL SopaSe FP 


ans 20S. 


; Deliver ATTN AST's if no interrupt th and set unexpected 
: interrupt flag. 


10$: 

BISW Ucoee UNEXPT, = 

BSW Bevsts(R5) : Set unexpected interrupt flag 
BSBW TTNAST 5 : Deliver ATIN AST’ 
BISW NT aa I1EAB,- 
XI_CSR(R4D : Enable device interrupts (A & B) 

3; Restore registers and return from interrupt 
20$: 


SOWONAULS WN O OONOULS UN 


POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore registers 
REI ; Return from interrupt 
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* ~SBTTL XI_CANCEL, Cancel 1/0 routine 
; KI_CANCEL, Cancels an 1/0 operation in progress 
Functional description: 


vou 001 xILCA 


Flushes Attention AST queue for the user. 

If transfer in poet do a device reset to port 
and finish the reque 

Clear interrupt eee flag. 


Inputs: 


negated value of channel index 
address of current IRP 

address of the PCB voquess ie the cancel 
address of the device's 


DwDwDwD 
MEW 
hun 


8 Outputs: 
8 =e 
XI_ CANCEL: ; Cancel 1/0 


1A 68 AS =600——=O#ESS BBCC #UCBSV_ATTNAST 


UCB$W_DEVSTS(R5),20$ |; ATTN AST enabled? 
: Finish all ATTN AST's for this process. 


DAANANANANAR SEER RE EE RANA 


gor a as PUSHR #*M<R2,R6,R7> 
ot i) MOVL : up channel punber 
0CS 9 MOVAB UCBSL_XI_ATTN(RS),R7 : ASarees of Listhe 
*b0000000" 4 16 JSB g.COnSr LUSH ATTNS : Flush ATTN AST's. tor process 
00¢4 BA POPR M<R2, n> 
68 AS 4 AA BICW fuCoSA UNE XP 


UCBSW MBevsTS«RS) : Clear unexpected interrupt flag 


3; Check to see if a data transfer request is in progress 
: for this process on this channel 


20$: 


NAAN N AIAN AAI AIA AWW NWI IAI AIA NAINA AAAI AAI AINA OO 


Be BBE EWN. AAAI AAI AIP PIPIPIPIPINYDY 2 to es EE 


SDA OAOOUMVOTD DDISOOMOOMOOOBDEMVIOSnrnrsnonvyvovcvVvVT VT V9 C0000”0000_0000"000"00 Frum 


SISA AAA AAO AO 


CONAN E AR 29 OS ODO NOAUN EWN SO OD NAUE WN SO ODO NAU EWN $0 OONAUE WIN O OONAOUL UF 


SETIPL UCBSB pry cee Lock out device interrupts 
JSB . JOESCAN 


am ee ed ad a dd at a at od oo 4 4 2 — 2 2 —s — 9 2 9 2 os 3 1 2 1 ts ts a 1 a ts i 


SOOGSOSOSOSOSOSOOSOOSOOOCOOOSSOSOSSSSOOSOSOOCOGCOOCCOOCOOCOOOOOOOOOOOOOOSO 2Z™. 


00000000°GF 16 5 tad hy ; Check if transfer going 
16 64 A5 03 €1 7 aac nh 
g UCé Q Vets : 30$ : Branch if not for this guy 
50 0830 gf 3¢ 7 MOVZWL #SSS$_CANCEL,RO ; Status is request canceled 
1 04 2 7 CLRL R1 
68 AS = B4 8 CLRW ucesy DEvsTS(RS} ; Clear unexpected interrupt flag 
BA : BICW ecucess TIM - 
5 UCBSA_ GANCEL i. 
UCBSM_INT io 
UCBSM_TI 
64 AS 0148 8F UCBSW_STS(R5) ; Clear unit status flags 
2 REQCOM 3; Jump to exec to finish 1/0 


L_16 | 
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1 34 20$: 
1 ’ TIPL UCBSB_FIPL(RS) 3; Lower to FORK IPL 
1 B 3; Return 
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-SBTTL XI_DEL_ATTNAST, Deliver ATTN AST's 


soe 

3; XILDEL_ATTNAST, Deliver all outstanding ATTN AST's 

; Functional description: 

: This routine is used by the port driver to deliver all of the 

é outstanding attention AST's. It is copied from COMSDELATTNAST in 
3 the exec. In addition, it places the saved value of the port CSR 
: and Input Data Buffer Register in the AST paramater. 

: Inputs: 

3 R5 = UCB of unit 

: Outputs: 

: RO +R} Re Destroyed 

: R3,R4,R5 Preserved 


K1_DEL_ATTNAST: 
BBCC. | #UCBSV_ATTNAST, - 


ucesu BevsTs(Rr5) ,30$ Any ATIN AST<s expected? 


PUSHR # 3,R4,R5> 3 Save R3,R4,R 
10$: MOVL 8(SP),R1 3; Get address of UCB 

MOVAB UCBSL_XI_ATTN(R1),R2 ; Address of ATTN AST Listhead 
MOVL (R2),R5 3; Address of next entry on List 
BEQL 208 3; No next entry, end of loop 
BICW #UCBSM_UNEXPT, - 

UCBSW BEVSTS(RI) ; Clear unexpected interrupt flag 
MOVL (R5) , TR2) 3 Close list 
MOVW UCBSW_XI_INBUF(R1), =- 

ACBSL_KAST+6(R5) ; Store INBUF in AST paramater 
MOVW  UCBSW7XI_CSR(R1), - 

ACBSL_KAST+4(R5) ; Store CSR in AST paramater 
PUSHAB B6*10$ ; Set return address for FORK 


: so that it \gege through all AST‘s 
; FORK for this AS 


FORK 
3; AST fork procedure 
MOVa ACBSL_KAST(R5) ,ACBSL_AST(R5) 
ayers entries 


, ne 
MOVB ACBSL_KAST+8(R5) ,ACBSB_RMOD(R 
MOVL ACBSL-KAST+12(R55 ,ACBSC_PID(R ) 


CLRL pg ES, 
MOVZBL #PRIS$ IOCOM,R2 3; Set up priority increment 
JMP G*SCHSQAST 3 Queue the AST 
84 POPR #*A<R3,R4,R5> ; Restore registers 
$ RSB 3; Return 
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Device reset routine 


a -SBTTL XI_DEV_RESET, 
XI_DEV_RESET = Device reset routine 


16-SEP 


: Inputs: 
: RS = Address of UCB 
: Outputs: 
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Device reset routine 


; This routine raises IPL to device IPL, performs a device reset to 
; the required controler, and re-enables device interrupts. 


R4 = Address of Control and Status Register 


Controller is reset, controller interrupts are enabled 


XI_DEV_RESET: 
DSBINT ; Raise IPL to lock all interrupts 
BISW #X1_CSRSM_RESET,- 
KI_USR(R4Y ; Reset device 
TIMEWAIT = ; Timewait to allow reset 
TIME = #500,- 
BITVAL = #Xi_CSRSM_RESET,- 
SOURCE = XI_CSR(R4J,- 
CONTEXT = W,- 
SENSE = .FALSE. 
BISW #X1_CSRSM_IEAB,- 
KI_USR(R4J z Enable device interrupts (A & B) 
ENBINT ; Restore IPL 
RSB 
XI_END: : End of driver Label 


END 
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11 rhe: Macro v04-00 Page 30 | 
Symbol table = 12 CDRIVER.SRCIXIDRIVER.MAR;2 (18) 
$$$ = 00000020 R 02 10$_SETMODE = 00000023 
| $$0P = 000000 § 10$- VIRTUAL = $5 38% 
_ ACBSB_RMOD = 9 9000 10$-WRITELBLK = 00000020 
ACBSL_AS = 0000001 10$-WRITEPBLK = 000000 8 
| ACBSL_KAST = 0000001 10$_WRITEVBLK = 000000 
| ACBSL™PID = 0000000C IOCSCANCELIO eeeeerer =X 3 
AT$_UBA = 00000001 IOCSMNTVER eeeeneee = §=6X 3 
COMSF LUSHATTNS tereeree xX 03 IOCSMOVFRUSER eeneeeee =X 3 
| COMSSETATTNAST eeeerere xX 03 I1OCSMOVTOUSER eeeeeree =X 3 
| CRBSL_INTD = 00000024 1OCSREQCOM eeereree xX 03 
CRBSL_INTD2 = 00000048 IOCSRETURN eeneneee = 6X = 03 
DC$_REALTIME = 00000060 LOCSUFIKPCH eereneee xX 03 
DDBSL_DDT = 0000000C IRPSL_MEDI = 00000038 
DEVSM_AVL eeereree xX IRPS$L_SEGVBN = 00000048 
DEVSM_IDV eeeeeeee = 8=6X IRPS$SW_FUNC = 4444 44 
DEVSM_ODV teeneeee =X ASKH = 00000080 
DEVSM_RTM eeeeeeee =X MASKL = 0800000 
DPTSC_LENGTH = 00000038 MOVFRUSER BOON A 03 
DPTSC” VERSION = 00000004 MOVTOUSER 00000283 R 03 
DPTSIRNITAB 00000038 R 02 Pi = 00000000 
PTSM.S = 00000002 P = 00000004 
DPTSREINITAB 00000054 R 02 im = 00000008 
PTSTAB 00000000 R 02 P4 = 0000000C 
DT$_XI_DRIIC = 0000000D PS = 00000010 
YnSC_Cre = 00000005 P6 = 00000014 
DYNSC_DDB = 00000006 PRS_IPL = 00000012 
DYNSC_DPT = 0000001 PRIS _IOCOM = 00000001 
DYNSC UCB = 0000001 RETURN_STATUS 000001E6 03 
EXE T10 eeererer KX 03 SCHSQAST etreneet 03 
EXESF INISHIO eeeeeeee YX 03 ot 7 = 00000001 
EXESFORK eeeeeere§ =X 03 SS$_BADPARAM = 00000014 
EXESGL_TENUSEC eeerereer§ KX 03 SS$_CANCEL = 00000830 
EXESGL_UBDELAY eeeeeeee = = X 03 SS$_NORMAL = 444 eb 
EXESIOFORK eeerereer KX 03 SS$- TIMEOUT = 90086 C 
EXESREAD eeererer KX 03 UCBSB_DEVCLASS = 00000040 
EXESSENSEMODE eeneenee KX 03 UCBSB_DEVTYPE = 00000041 
EXESSETCHAR eeeeeere§ KX 03 UCBSB_DIPL = Q000005E 
EXESWRITE eeeneeee KX 03 UCB$B_FIP = 00000008 
FUNCTAB_LEN = 0000004C UCBSK_SIZE = QO0000AC 
1DB$8_COMBO_CSR_OFFSET = 0000000F UCBS$L_CRB = se eet 
1DB$8- COMBO” VECTOR_OF FSET = 00000010 UCBSL_DEVCHAR = 00000038 
1DB$8_ VECTOR = 00000008 UCBSL_DPC = 0000009C 
IDBSL_CSR = 00000000 UCBSL_FP = 0000000 
IDBSL_OWNER = 4 UCBSL— = 900981 
1DBSL-UCBLST = 00000018 UCBSL-SVAPTE = 00 7 
10$S_FCODE = UCBSL-XI_ATTN 000000A0 
1O$V—ATTNAST = 00000008 UCBSL-X1 O0000A4 
10$v—F CODE = 00000000 UCBSM_ATTNAST s $0 8000) 
1O$V_RESET 2 08 CBSM_BSY = ead 
1O$V—SETFNCT = 09 UCBSM_ CANCEL PY $8 $08 
10$V" TIMED = 7 BSM_INT 2 0 
10$_READLBLK = 000 1 UCBSM_ONL INE = ° 90] 
10$_READPBLK = f $M_POWE = ‘ 
108" READVBL = Sm-TIM = 1 
10$— SENSE CHAR = 0 18 UCBSM_TIMOUT = 4 
10$— SENSEMODE = 00 2 UCBSM_UNE XPT = ° 
10$"SETCHAR = 0 OIA UCBSV-ATTNAST s 0 
i 
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H Psect synopsis ! 

PSECT No. Attributes 

-) 00 ¢ 0.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
172.) 1¢( 1.) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
105.) § ( §°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
010.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
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XIDRIVER = VAX/VMS DMF32 PARALLEL PORT DRIVER ats eb 9 90 1g 11 
VAK=-11 Macro Run Statistics 66-SEP-1984 16 12 
denne sreann mower ean escae Sa 
H Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
“Initialization — 30 90:00:00. 04 00:00:00.71 
Sy pane. 8 SRE SS BRB 
| pyeont table sort of Sata 3:0 8:4 
ass 7:00:03. 7:00:10. 
| Symbol table output 20 00:00:0 “15 09:00:0 59 
Psect synopsis output 1 00:00:00.01 0:00:00.10 
Cross-reference output 00:00:00.00 Op Rd 208-88 
Assembler run totals 866 00:00:19.94 00:01:13.30 


The working set_Limit was 1950 pages. 

118674 bytes (232 pages) of virtual memory were used to buffer the intermediate ggde. 

There were 110 pages of symbol table space allocated to hold 1953 non-local and 39 local symbols. 
1184 source Lines were read in Pass 1, produc ing 18 object records in Pass 2. 

40 pages of virtual memory were used to define 57 macros. 
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! Macro Library statistics ! 


moe wm noma moae ro 


Macro Library name 


-$255$DUA28:CSYS.OBJJLIB.MLB; 1 24 
$255SDUA28: CSYSLIBISTARLET.MLB;2 S 
TOTALS (all Libraries) 33 


2206 GETS were required to define 33 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:XIDRIVER/OBJ=OBJ$:XIDRIVER MSRC$:XIDRIVER/UPDATE=(ENHS: XIDRIVER) +EXECMLS/LIB 
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